<!--#include file="system.asp"-->
<!--#include file="constConfig.asp"-->

<%
Dim blog_databasepath
If (inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),	"/" & AppAdminDir & "/") =0)  and  (inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),	"/" & IniUploadDir & "/")=0)   Then 
	blog_databasepath=server.mappath(blog_virualdatabase)
else  
	blog_databasepath=server.mappath("../"& blog_virualdatabase)
End If 




'----------------------------------------------------------------------
'Public Function connectDB()
'If not isObject(conn) OR cStr(typeName(conn)) = "Nothing" then
 Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&blog_databasepath&""
 conn.open connstr
'response.write("connection the data base is successful<br/>")
	If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "The server run busy,please wait a minute"
	Response.End
	End If
'	else
'conn.close
'Set conn = Nothing
'response.write("close the data base is successful<br/>")

'end if
'End Function

Dim Tpl

%>